/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / modules.lha / modules / utility / pack.b

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 44 4d 4f 44 00 00 00 10 | 4d 4f 44 53 00 01 00 0f |DMOD....|MODS....|
|00000010| 75 74 69 6c 69 74 79 2f | 74 61 67 69 74 65 6d 00 |utility/|tagitem.|
|00000020| 43 4e 53 54 00 14 00 00 | 00 64 00 00 01 04 ff 00 |CNST....|.d......|
|00000030| 01 00 98 00 00 00 01 00 | 18 00 00 00 01 00 10 00 |........|........|
|00000040| 00 00 01 00 08 00 00 00 | ff 00 01 00 90 00 00 00 |........|........|
|00000050| 01 00 88 00 00 00 01 00 | 80 00 00 00 01 00 20 00 |........|...... .|
|00000060| 00 00 01 00 40 00 00 00 | ff 00 01 00 04 00 00 00 |....@...|........|
|00000070| 03 00 00 1a 01 00 20 00 | 00 00 03 00 00 1d 01 00 |...... .|........|
|00000080| 40 00 00 00 03 00 00 1e | 01 00 80 00 00 00 03 00 |@.......|........|
|00000090| 00 1f 50 41 43 4b 5f 45 | 4e 44 54 41 42 4c 45 00 |..PACK_E|NDTABLE.|
|000000a0| 50 4b 43 54 52 4c 5f 46 | 4c 49 50 42 49 54 00 50 |PKCTRL_F|LIPBIT.P|
|000000b0| 4b 43 54 52 4c 5f 42 49 | 54 00 50 4b 43 54 52 4c |KCTRL_BI|T.PKCTRL|
|000000c0| 5f 55 4c 4f 4e 47 00 50 | 4b 43 54 52 4c 5f 55 57 |_ULONG.P|KCTRL_UW|
|000000d0| 4f 52 44 00 50 4b 43 54 | 52 4c 5f 55 42 59 54 45 |ORD.PKCT|RL_UBYTE|
|000000e0| 00 50 4b 43 54 52 4c 5f | 4c 4f 4e 47 00 50 4b 43 |.PKCTRL_|LONG.PKC|
|000000f0| 54 52 4c 5f 57 4f 52 44 | 00 50 4b 43 54 52 4c 5f |TRL_WORD|.PKCTRL_|
|00000100| 42 59 54 45 00 50 4b 43 | 54 52 4c 5f 55 4e 50 41 |BYTE.PKC|TRL_UNPA|
|00000110| 43 4b 4f 4e 4c 59 00 50 | 4b 43 54 52 4c 5f 50 41 |CKONLY.P|KCTRL_PA|
|00000120| 43 4b 4f 4e 4c 59 00 50 | 4b 43 54 52 4c 5f 50 41 |CKONLY.P|KCTRL_PA|
|00000130| 43 4b 55 4e 50 41 43 4b | 00 50 53 54 46 5f 45 58 |CKUNPACK|.PSTF_EX|
|00000140| 49 53 54 53 00 50 53 54 | 42 5f 45 58 49 53 54 53 |ISTS.PST|B_EXISTS|
|00000150| 00 50 53 54 46 5f 50 41 | 43 4b 00 50 53 54 42 5f |.PSTF_PA|CK.PSTB_|
|00000160| 50 41 43 4b 00 50 53 54 | 46 5f 55 4e 50 41 43 4b |PACK.PST|F_UNPACK|
|00000170| 00 50 53 54 42 5f 55 4e | 50 41 43 4b 00 50 53 54 |.PSTB_UN|PACK.PST|
|00000180| 46 5f 53 49 47 4e 45 44 | 00 50 53 54 42 5f 53 49 |F_SIGNED|.PSTB_SI|
|00000190| 47 4e 45 44 00 00 23 64 | 65 66 00 0c 00 20 00 00 |GNED..#d|ef... ..|
|000001a0| 00 70 00 00 04 a8 06 0c | 00 72 00 07 00 03 00 04 |.p......|.r......|
|000001b0| 00 05 00 07 00 05 06 0c | 00 72 00 07 00 03 00 04 |........|.r......|
|000001c0| 00 05 00 07 00 05 06 0c | 00 57 00 07 00 03 00 04 |........|.W......|
|000001d0| 00 05 00 07 00 05 05 0a | 00 3c 00 07 00 03 00 04 |........|.<......|
|000001e0| 00 05 00 07 01 0e 00 0e | 00 07 01 0f 00 09 00 07 |........|........|
|000001f0| 02 0d 00 10 00 04 00 05 | 01 0d 00 57 00 03 01 0d |........|...W....|
|00000200| 00 1d 00 03 01 09 00 42 | 00 03 01 0a 00 3e 00 03 |.......B|.....>..|
|00000210| 01 0a 00 b2 00 03 50 41 | 43 4b 5f 4c 4f 4e 47 42 |......PA|CK_LONGB|
|00000220| 49 54 00 74 61 67 62 61 | 73 65 00 74 61 67 00 74 |IT.tagba|se.tag.t|
|00000230| 79 70 65 00 66 69 65 6c | 64 00 63 6f 6e 74 72 6f |ype.fiel|d.contro|
|00000240| 6c 00 66 6c 61 67 73 00 | 28 63 6f 6e 74 72 6f 6c |l.flags.|(control|
|00000250| 20 7c 20 28 28 74 61 67 | 2d 74 61 67 62 61 73 65 | | ((tag|-tagbase|
|00000260| 29 20 3c 3c 20 31 36 29 | 20 7c 20 28 50 4b 5f 43 |) << 16)| | (PK_C|
|00000270| 41 43 4f 46 46 53 45 54 | 28 74 79 70 65 2c 66 69 |ACOFFSET|(type,fi|
|00000280| 65 6c 64 29 2b 50 4b 5f | 4c 4f 4e 47 4f 46 46 53 |eld)+PK_|LONGOFFS|
|00000290| 45 54 28 66 6c 61 67 73 | 29 29 20 7c 20 28 28 50 |ET(flags|)) | ((P|
|000002a0| 4b 5f 42 49 54 4e 55 4d | 28 66 6c 61 67 73 29 26 |K_BITNUM|(flags)&|
|000002b0| 37 29 20 3c 3c 20 31 33 | 29 29 00 50 41 43 4b 5f |7) << 13|)).PACK_|
|000002c0| 57 4f 52 44 42 49 54 00 | 74 61 67 62 61 73 65 00 |WORDBIT.|tagbase.|
|000002d0| 74 61 67 00 74 79 70 65 | 00 66 69 65 6c 64 00 63 |tag.type|.field.c|
|000002e0| 6f 6e 74 72 6f 6c 00 66 | 6c 61 67 73 00 28 63 6f |ontrol.f|lags.(co|
|000002f0| 6e 74 72 6f 6c 20 7c 20 | 28 28 74 61 67 2d 74 61 |ntrol | |((tag-ta|
|00000300| 67 62 61 73 65 29 20 3c | 3c 20 31 36 29 20 7c 20 |gbase) <|< 16) | |
|00000310| 28 50 4b 5f 43 41 43 4f | 46 46 53 45 54 28 74 79 |(PK_CACO|FFSET(ty|
|00000320| 70 65 2c 66 69 65 6c 64 | 29 2b 50 4b 5f 57 4f 52 |pe,field|)+PK_WOR|
|00000330| 44 4f 46 46 53 45 54 28 | 66 6c 61 67 73 29 29 20 |DOFFSET(|flags)) |
|00000340| 7c 20 28 28 50 4b 5f 42 | 49 54 4e 55 4d 28 66 6c || ((PK_B|ITNUM(fl|
|00000350| 61 67 73 29 26 37 29 20 | 3c 3c 20 31 33 29 29 00 |ags)&7) |<< 13)).|
|00000360| 50 41 43 4b 5f 42 59 54 | 45 42 49 54 00 74 61 67 |PACK_BYT|EBIT.tag|
|00000370| 62 61 73 65 00 74 61 67 | 00 74 79 70 65 00 66 69 |base.tag|.type.fi|
|00000380| 65 6c 64 00 63 6f 6e 74 | 72 6f 6c 00 66 6c 61 67 |eld.cont|rol.flag|
|00000390| 73 00 28 63 6f 6e 74 72 | 6f 6c 20 7c 20 28 28 74 |s.(contr|ol | ((t|
|000003a0| 61 67 2d 74 61 67 62 61 | 73 65 29 20 3c 3c 20 31 |ag-tagba|se) << 1|
|000003b0| 36 29 20 7c 20 50 4b 5f | 43 41 43 4f 46 46 53 45 |6) | PK_|CACOFFSE|
|000003c0| 54 28 74 79 70 65 2c 66 | 69 65 6c 64 29 20 7c 20 |T(type,f|ield) | |
|000003d0| 28 50 4b 5f 42 49 54 4e | 55 4d 28 66 6c 61 67 73 |(PK_BITN|UM(flags|
|000003e0| 29 20 3c 3c 20 31 33 29 | 29 00 50 41 43 4b 5f 45 |) << 13)|).PACK_E|
|000003f0| 4e 54 52 59 00 74 61 67 | 62 61 73 65 00 74 61 67 |NTRY.tag|base.tag|
|00000400| 00 74 79 70 65 00 66 69 | 65 6c 64 00 63 6f 6e 74 |.type.fi|eld.cont|
|00000410| 72 6f 6c 00 28 63 6f 6e | 74 72 6f 6c 20 7c 20 28 |rol.(con|trol | (|
|00000420| 28 74 61 67 2d 74 61 67 | 62 61 73 65 29 20 3c 3c |(tag-tag|base) <<|
|00000430| 20 31 36 29 20 7c 20 50 | 4b 5f 43 41 43 4f 46 46 | 16) | P|K_CACOFF|
|00000440| 53 45 54 28 74 79 70 65 | 2c 66 69 65 6c 64 29 29 |SET(type|,field))|
|00000450| 00 50 41 43 4b 5f 4e 45 | 57 4f 46 46 53 45 54 00 |.PACK_NE|WOFFSET.|
|00000460| 74 61 67 62 61 73 65 00 | 28 2d 31 29 2c 28 74 61 |tagbase.|(-1),(ta|
|00000470| 67 62 61 73 65 29 00 50 | 41 43 4b 5f 53 54 41 52 |gbase).P|ACK_STAR|
|00000480| 54 54 41 42 4c 45 00 74 | 61 67 62 61 73 65 00 28 |TTABLE.t|agbase.(|
|00000490| 74 61 67 62 61 73 65 29 | 00 50 4b 5f 43 41 4c 43 |tagbase)|.PK_CALC|
|000004a0| 4f 46 46 53 45 54 00 74 | 79 70 65 00 66 69 65 6c |OFFSET.t|ype.fiel|
|000004b0| 64 00 28 26 30 3a 3a 74 | 79 70 65 2e 66 69 65 6c |d.(&0::t|ype.fiel|
|000004c0| 64 29 00 50 4b 5f 4c 4f | 4e 47 4f 46 46 53 45 54 |d).PK_LO|NGOFFSET|
|000004d0| 00 66 6c 67 00 28 49 46 | 20 28 66 6c 67 29 3c 24 |.flg.(IF| (flg)<$|
|000004e0| 31 30 30 20 54 48 45 4e | 20 33 20 45 4c 53 45 20 |100 THEN| 3 ELSE |
|000004f0| 49 46 20 28 66 6c 67 29 | 3c 24 31 30 30 30 30 20 |IF (flg)|<$10000 |
|00000500| 54 48 45 4e 20 32 20 45 | 4c 53 45 20 49 46 20 28 |THEN 2 E|LSE IF (|
|00000510| 66 6c 67 29 3c 24 31 30 | 30 30 30 30 30 20 54 48 |flg)<$10|00000 TH|
|00000520| 45 4e 20 31 20 45 4c 53 | 45 20 30 29 00 50 4b 5f |EN 1 ELS|E 0).PK_|
|00000530| 57 4f 52 44 4f 46 46 53 | 45 54 00 66 6c 67 00 28 |WORDOFFS|ET.flg.(|
|00000540| 49 46 20 28 66 6c 67 29 | 3c 24 31 30 30 20 54 48 |IF (flg)|<$100 TH|
|00000550| 45 4e 20 31 20 45 4c 53 | 45 20 30 29 00 50 4b 5f |EN 1 ELS|E 0).PK_|
|00000560| 42 49 54 4e 55 4d 00 66 | 6c 67 00 28 49 46 20 28 |BITNUM.f|lg.(IF (|
|00000570| 66 6c 67 29 3c 24 31 30 | 30 30 30 20 54 48 45 4e |flg)<$10|000 THEN|
|00000580| 20 50 4b 5f 42 49 54 4e | 55 4d 32 28 66 6c 67 29 | PK_BITN|UM2(flg)|
|00000590| 20 45 4c 53 45 20 31 36 | 2b 50 4b 5f 42 49 54 4e | ELSE 16|+PK_BITN|
|000005a0| 55 4d 32 28 66 6c 67 3e | 3e 31 36 29 29 00 50 4b |UM2(flg>|>16)).PK|
|000005b0| 5f 42 49 54 4e 55 4d 32 | 00 66 6c 67 00 28 49 46 |_BITNUM2|.flg.(IF|
|000005c0| 20 28 66 6c 67 29 3c 24 | 31 30 30 20 54 48 45 4e | (flg)<$|100 THEN|
|000005d0| 20 50 4b 5f 42 49 54 4e | 55 4d 31 28 66 6c 67 29 | PK_BITN|UM1(flg)|
|000005e0| 20 45 4c 53 45 20 38 2b | 50 4b 5f 42 49 54 4e 55 | ELSE 8+|PK_BITNU|
|000005f0| 4d 31 28 66 6c 67 3e 3e | 38 29 29 00 50 4b 5f 42 |M1(flg>>|8)).PK_B|
|00000600| 49 54 4e 55 4d 31 00 66 | 6c 67 00 28 49 46 20 28 |ITNUM1.f|lg.(IF (|
|00000610| 66 6c 67 29 3d 24 30 31 | 20 54 48 45 4e 20 30 20 |flg)=$01| THEN 0 |
|00000620| 45 4c 53 45 20 49 46 20 | 28 66 6c 67 29 3d 24 30 |ELSE IF |(flg)=$0|
|00000630| 32 20 54 48 45 4e 20 31 | 20 45 4c 53 45 20 49 46 |2 THEN 1| ELSE IF|
|00000640| 20 28 66 6c 67 29 3d 24 | 30 34 20 54 48 45 4e 20 | (flg)=$|04 THEN |
|00000650| 32 20 45 4c 53 45 20 49 | 46 20 28 66 6c 67 29 3d |2 ELSE I|F (flg)=|
|00000660| 24 30 38 20 54 48 45 4e | 20 33 20 45 4c 53 45 20 |$08 THEN| 3 ELSE |
|00000670| 49 46 20 28 66 6c 67 29 | 3d 24 31 30 20 54 48 45 |IF (flg)|=$10 THE|
|00000680| 4e 20 34 20 45 4c 53 45 | 20 49 46 20 28 66 6c 67 |N 4 ELSE| IF (flg|
|00000690| 29 3d 24 32 30 20 54 48 | 45 4e 20 35 20 45 4c 53 |)=$20 TH|EN 5 ELS|
|000006a0| 45 20 49 46 20 28 66 6c | 67 29 3d 24 34 30 20 54 |E IF (fl|g)=$40 T|
|000006b0| 48 45 4e 20 36 20 45 4c | 53 45 20 37 29 00       |HEN 6 EL|SE 7).  |
+--------+-------------------------+-------------------------+--------+--------+